home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / lib / pdf2dsc.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  8.2 KB  |  255 lines
  1. %    Copyright (C) 1994, 1995, 1996, 1997, 1998 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf2dsc.ps 8546 2008-02-25 05:48:45Z alexcher $
  17. % pdf2dsc.ps
  18. % read pdf file and produce DSC "index" file.
  19. %
  20. % Input  file is named PDFname
  21. % Output file is named DSCname
  22. %
  23. % Run using:
  24. %  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
  25. % Then display the PDF file with
  26. %  gs tempfilename
  27. %
  28. % Modified by Jason McCarty, bug 688071
  29. %       Add PageLabels support.
  30. % Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:
  31. %    Add DocumentMedia, PageMedia comments
  32. %    Use inherited BoundingBox and Orientation
  33. %    Reformat, add new macro 'puts', generally clean up
  34. % Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
  35. %    Adds BoundingBox and Orientation if available.
  36. % Modified by rjl/lpd 9/19/96
  37. %    Updates for compatibility with modified pdf_*.ps code for handling
  38. %      page ranges (i.e., partial files) better.
  39. % Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
  40. %    include Title and CreationDate DSC comments (these are displayed by
  41. %      Ghostview);
  42. %    reduce the size of typical output files by a factor of about 3.
  43. % Modified by L. Peter Deutsch 3/18/96:
  44. %    Removes unnecessary and error-prone code duplicated from pdf_main.ps
  45. % Modified by L. Peter Deutsch for GS 3.33
  46. % Originally by Russell Lang  1995-04-26
  47.  
  48. /PDFfile PDFname (r) file def
  49. /DSCfile DSCname (w) file def
  50. systemdict /.setsafe known { .setsafe } if
  51.  
  52. /puts { DSCfile exch writestring } bind def
  53. /DSCstring 255 string def
  54. /MediaTypes 10 dict def
  55.  
  56.    GS_PDF_ProcSet begin
  57.    pdfdict begin
  58.    PDFfile
  59.    pdfopen begin
  60.    /FirstPage where { pop } { /FirstPage 1 def } ifelse
  61.    /LastPage where { pop } { /LastPage pdfpagecount def } ifelse
  62.  
  63. % scan through for media sizes, keep them in the dictionary
  64.    FirstPage 1 LastPage {
  65.       pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute
  66.       aload pop 
  67.       3 -1 roll sub 3 1 roll exch sub exch
  68.       2 array astore 
  69.       aload 3 1 roll 10 string cvs exch 10 string cvs
  70.       (x) 3 -1 roll concatstrings concatstrings cvn
  71.       MediaTypes 3 1 roll exch put
  72.    } for
  73.  
  74. % write header and prolog
  75.    (%!PS-Adobe-3.0\n) puts
  76.    Trailer /Info knownoget
  77.     {
  78.       dup /Title knownoget
  79.        {
  80.          (%%Title: ) puts
  81.          DSCfile exch write==
  82.        }
  83.       if
  84.       /CreationDate knownoget
  85.        {
  86.          (%%CreationDate: ) puts
  87.          DSCfile exch write==
  88.        }
  89.       if
  90.     }
  91.    if
  92.    % This is really supposed to be sorted by frequency of usage...
  93.    (%%DocumentMedia: )
  94.    MediaTypes { 
  95.       exch pop
  96.       1 index puts
  97.       (y) puts dup 1 get DSCstring cvs puts
  98.       (x) puts dup 0 get DSCstring cvs puts 
  99.       ( ) puts dup 0 get DSCstring cvs puts
  100.       ( ) puts 1 get DSCstring cvs puts 
  101.       ( 70 white ()\n) puts
  102.       pop (%%+ )
  103.    } forall
  104.    pop
  105.  
  106.    (%%Pages: ) puts
  107.    LastPage FirstPage sub 1 add DSCstring cvs puts
  108.    (\n%%EndComments\n) puts
  109.    (%%BeginProlog\n) puts
  110.    (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
  111.    (/DSCPageCount 0 def\n) puts
  112.    (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts
  113.    (GS_PDF_ProcSet begin\npdfdict begin\n) puts
  114.    (%%EndProlog\n) puts
  115.    (%%BeginSetup\n) puts
  116.    DSCfile PDFname write==only
  117.    ( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
  118.    ( pdfopen begin\n) puts
  119.    ( copy_trailer_attrs\n) puts
  120.    (%%EndSetup\n) puts
  121.  
  122.    /.hasPageLabels false def % see "Page Labels" in the PDF Reference
  123.    Trailer /Root knownoget {
  124.      /PageLabels knownoget {
  125.        /PageLabels exch def
  126.        /.pageCounter 1 def
  127.        /.pageCounterType /D def
  128.        /.pagePrefix () def
  129.  
  130.        % (TEXT)  .ToLower  (text)  -- convert text to lowercase -- only letters!
  131.        /.ToLower {
  132.          dup length 1 sub  -1 0 {
  133.            1 index exch 2 copy get 2#00100000 or put
  134.          } for
  135.        } def
  136.  
  137.        % int  .CvAlpha  (int in alphabetic base 26)  -- convert a positive
  138.        % integer to base 26 in capital letters, with 1=A; i.e. A..Z, AA..AZ, ...
  139.        /.CvAlpha { % using cvrs seems futile since this isn't zero-based ...
  140.          [ exch % construct an array of ASCII values, in reverse
  141.          { % the remainder stays on the top of stack
  142.            dup 0 eq { pop exit } if % quit if the value is zero
  143.            dup 26 mod dup 0 eq { 26 add } if % so that the division is correct
  144.            dup 64 add 3 1 roll sub 26 idiv % save the ASCII value and iterate
  145.          } loop ]
  146.          dup length dup string 3 1 roll
  147.          dup -1 1 { % put the letters in a string
  148.            4 copy sub exch 4 -1 roll 1 sub get put
  149.          } for pop pop
  150.        } def
  151.  
  152.        % int  .CvRoman  (int in capital Roman numerals)
  153.        % convert a positive integer to capital Roman numerals
  154.        % return a decimal string if >= 4000
  155.        /.CvRoman {
  156.          dup DSCstring cvs % start with the decimal representation
  157.          exch 4000 lt { % convert only if Roman numerals can represent this
  158.            dup length
  159.            [ [ () (I) (II) (III) (IV) (V) (VI) (VII) (VIII) (IX) ]
  160.              [ () (X) (XX) (XXX) (XL) (L) (LX) (LXX) (LXXX) (XC) ]
  161.              [ () (C) (CC) (CCC) (CD) (D) (DC) (DCC) (DCCC) (CM) ]
  162.              [ () (M) (MM) (MMM) ] ] % Roman equivalents
  163.            () % append the Roman equivalent of each decimal digit to this string
  164.            2 index  -1 1 {
  165.              2 index 1 index 1 sub get
  166.              5 index 5 index 4 -1 roll sub get
  167.              48 sub get concatstrings
  168.            } for
  169.            4 1 roll pop pop pop
  170.          } if
  171.        } def
  172.  
  173.        /PageToString <<
  174.          /D { DSCstring cvs }
  175.          /R { .CvRoman }
  176.          /r { .CvRoman .ToLower }
  177.          /A { .CvAlpha }
  178.          /a { .CvAlpha .ToLower }
  179.        >> def
  180.        /.hasPageLabels true def
  181.      } if
  182.    } if
  183.  
  184.    % process each page
  185.    FirstPage 1 LastPage {
  186.        (%%Page: ) puts
  187.  
  188.        .hasPageLabels {
  189.          dup 1 sub PageLabels exch numoget dup null ne {
  190.            % page labels changed at this page, reset the values
  191.            dup /S known { dup /S get } { null } ifelse
  192.            /.pageCounterType exch def
  193.  
  194.            dup /P known { dup /P get } { () } ifelse
  195.            /.pagePrefix exch def
  196.  
  197.            dup /St known { /St get } { pop 1 } ifelse
  198.            /.pageCounter exch def
  199.          } { pop } ifelse
  200.  
  201.          % output the page label
  202.          (\() .pagePrefix
  203.          .pageCounterType //null ne dup {
  204.            PageToString .pageCounterType known and
  205.          } if { % format the page number
  206.            .pageCounter dup 0 gt { % don't try to format nonpositive numbers
  207.              PageToString .pageCounterType get exec
  208.            } {
  209.              DSCstring cvs
  210.           } ifelse
  211.          } { () } ifelse
  212.          (\)) concatstrings concatstrings concatstrings puts
  213.  
  214.          /.pageCounter .pageCounter 1 add def
  215.        } {
  216.          dup DSCstring cvs puts
  217.        } ifelse
  218.        ( ) puts
  219.        dup DSCstring cvs puts
  220.        (\n) puts
  221.  
  222.        dup pdfgetpage
  223.        dup /MediaBox pget pop
  224.          (%%PageMedia: y) puts
  225.      aload pop 3 -1 roll sub DSCstring cvs puts
  226.      (x) puts exch sub DSCstring cvs puts
  227.      (\n) puts
  228.        dup /CropBox pget {
  229.          (%%PageBoundingBox: ) puts
  230.          {DSCfile exch write=only ( ) puts} forall
  231.          (\n) puts
  232.        } if
  233.        /Rotate pget {
  234.          (%%PageOrientation: ) puts
  235.          90 div cvi 4 mod dup 0 lt {4 add} if
  236.          [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts
  237.          (\n) puts
  238.        } if
  239.  
  240.        DSCfile exch DSCstring cvs writestring
  241.        ( DoPDFPage\n) puts
  242.     } for
  243.    currentdict pdfclose
  244.    end
  245.    end
  246.    end
  247. % write trailer
  248. (%%Trailer\n) puts
  249. (currentdict pdfclose\nend\nend\nend\n) puts
  250. (%%EOF\n) puts
  251. % close output file and exit
  252. DSCfile closefile
  253. quit
  254. % end of pdf2dsc.ps
  255.